home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / brutal-utils / traps-u.lisp < prev   
MacBinary  |  1991-10-23  |  3.1 KB  |  [TEXT/CCL2]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Wed Oct 23 15:39:50 1991, modified Wed Oct 23 15:39:50 1991, creator Common Lisp 2, type ASCII, 2451 bytes "traps-u.lisp" , at 0xa13 416 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[CCL2]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 74 72 61 70 73 2d | 75 2e 6c 69 73 70 00 00 |..traps-|u.lisp..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 09 93 00 | 00 01 a0 a5 2b 80 86 a5 |........|....+...|
|00000060| 2b 80 86 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f5 08 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 54 72 61 70 |).(provi|de :Trap|
|000000a0| 73 2d 75 29 0d 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |s-u).;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 0d 3b 3b 20 74 |;;;;;;;;|;;;.;; t|
|000000f0| 72 61 70 73 2d 75 2e 4c | 69 73 70 0d 3b 3b 0d 3b |raps-u.L|isp.;;.;|
|00000100| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 a9 20 31 39 |; Copyri|ght . 19|
|00000110| 39 31 20 4e 6f 72 74 68 | 77 65 73 74 65 72 6e 20 |91 North|western |
|00000120| 55 6e 69 76 65 72 73 69 | 74 79 20 49 6e 73 74 69 |Universi|ty Insti|
|00000130| 74 75 74 65 20 66 6f 72 | 20 74 68 65 20 4c 65 61 |tute for| the Lea|
|00000140| 72 6e 69 6e 67 20 53 63 | 69 65 6e 63 65 73 0d 3b |rning Sc|iences.;|
|00000150| 3b 20 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |; All Ri|ghts Res|
|00000160| 65 72 76 65 64 0d 3b 3b | 0d 3b 3b 20 61 75 74 68 |erved.;;|.;; auth|
|00000170| 6f 72 3a 20 4d 69 63 68 | 61 65 6c 20 53 2e 20 45 |or: Mich|ael S. E|
|00000180| 6e 67 62 65 72 0d 3b 3b | 0d 3b 3b 20 55 74 69 6c |ngber.;;|.;; Util|
|00000190| 69 74 69 65 73 20 66 6f | 72 20 77 6f 72 6b 69 6e |ities fo|r workin|
|000001a0| 67 20 77 69 74 68 20 74 | 72 61 70 20 63 61 6c 6c |g with t|rap call|
|000001b0| 73 20 0d 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |s .;;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 0d 28 6f 6f 75 2d |;;;;;;;;|;..(oou-|
|00000200| 64 65 70 65 6e 64 65 6e | 63 69 65 73 0d 20 29 0d |dependen|cies. ).|
|00000210| 0d 28 65 78 70 6f 72 74 | 20 27 28 6f 6e 2d 4d 61 |.(export| '(on-Ma|
|00000220| 63 4f 53 2d 6e 7a 2d 65 | 72 72 6f 72 20 63 68 65 |cOS-nz-e|rror che|
|00000230| 63 6b 2d 4d 61 63 4f 53 | 2d 6e 7a 2d 65 72 72 6f |ck-MacOS|-nz-erro|
|00000240| 72 0d 20 20 20 20 20 20 | 20 20 20 20 29 29 0d 0d |r.      |    ))..|
|00000250| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 0d 0d | 28 65 76 61 6c 2d 77 68 |;;;;;;..|(eval-wh|
|000002a0| 65 6e 20 28 3a 63 6f 6d | 70 69 6c 65 2d 74 6f 70 |en (:com|pile-top|
|000002b0| 6c 65 76 65 6c 20 3a 6c | 6f 61 64 2d 74 6f 70 6c |level :l|oad-topl|
|000002c0| 65 76 65 6c 20 3a 65 78 | 65 63 75 74 65 29 0d 20 |evel :ex|ecute). |
|000002d0| 20 0d 20 20 28 64 65 66 | 6d 61 63 72 6f 20 6f 6e | .  (def|macro on|
|000002e0| 2d 4d 61 63 4f 53 2d 6e | 7a 2d 65 72 72 6f 72 20 |-MacOS-n|z-error |
|000002f0| 28 74 72 61 70 2d 66 6f | 72 6d 20 26 72 65 73 74 |(trap-fo|rm &rest|
|00000300| 20 62 6f 64 79 29 0d 20 | 20 20 20 28 6c 65 74 2a | body). |   (let*|
|00000310| 20 28 28 72 65 73 75 6c | 74 20 28 67 65 6e 73 79 | ((resul|t (gensy|
|00000320| 6d 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 28 |m)).    |       (|
|00000330| 74 72 61 70 2d 63 61 6c | 6c 20 28 69 66 20 28 65 |trap-cal|l (if (e|
|00000340| 71 20 27 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 |q 'requi|re-trap |
|00000350| 28 66 69 72 73 74 20 74 | 72 61 70 2d 66 6f 72 6d |(first t|rap-form|
|00000360| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 28 72 65 73 74 |        |   (rest|
|00000380| 20 74 72 61 70 2d 66 6f | 72 6d 29 0d 20 20 20 20 | trap-fo|rm).    |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003a0| 20 20 20 20 74 72 61 70 | 2d 66 6f 72 6d 29 29 0d |    trap|-form)).|
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 28 61 72 67 73 |        |   (args|
|000003c0| 20 28 72 65 73 74 20 74 | 72 61 70 2d 63 61 6c 6c | (rest t|rap-call|
|000003d0| 29 29 29 0d 20 20 20 20 | 20 20 60 28 6c 65 74 20 |))).    |  `(let |
|000003e0| 28 28 2c 72 65 73 75 6c | 74 20 2c 74 72 61 70 2d |((,resul|t ,trap-|
|000003f0| 63 61 6c 6c 29 29 0d 20 | 20 20 20 20 20 20 20 20 |call)). |        |
|00000400| 28 64 65 63 6c 61 72 65 | 20 28 64 79 6e 61 6d 69 |(declare| (dynami|
|00000410| 63 2d 65 78 74 65 6e 74 | 20 2c 72 65 73 75 6c 74 |c-extent| ,result|
|00000420| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00000430| 20 20 20 20 28 66 69 78 | 6e 75 6d 20 2c 72 65 73 |    (fix|num ,res|
|00000440| 75 6c 74 29 29 0d 20 20 | 20 20 20 20 20 20 20 28 |ult)).  |       (|
|00000450| 75 6e 6c 65 73 73 20 28 | 7a 65 72 6f 70 20 2c 72 |unless (|zerop ,r|
|00000460| 65 73 75 6c 74 29 0d 20 | 20 20 20 20 20 20 20 20 |esult). |        |
|00000470| 20 20 2c 40 62 6f 64 79 | 0d 20 20 20 20 20 20 20 |  ,@body|.       |
|00000480| 20 20 20 20 28 65 72 72 | 6f 72 20 28 4d 61 63 4f |    (err|or (MacO|
|00000490| 53 2d 6e 7a 2d 65 72 72 | 6f 72 2d 73 74 72 69 6e |S-nz-err|or-strin|
|000004a0| 67 20 27 2c 74 72 61 70 | 2d 66 6f 72 6d 20 27 2c |g ',trap|-form ',|
|000004b0| 61 72 67 73 20 2c 72 65 | 73 75 6c 74 29 20 2c 40 |args ,re|sult) ,@|
|000004c0| 61 72 67 73 29 29 0d 20 | 20 20 20 20 20 20 20 20 |args)). |        |
|000004d0| 30 29 29 29 0d 20 20 0d | 20 20 28 64 65 66 6d 61 |0))).  .|  (defma|
|000004e0| 63 72 6f 20 63 68 65 63 | 6b 2d 4d 61 63 4f 53 2d |cro chec|k-MacOS-|
|000004f0| 6e 7a 2d 65 72 72 6f 72 | 20 28 74 72 61 70 2d 63 |nz-error| (trap-c|
|00000500| 61 6c 6c 29 0d 20 20 20 | 20 60 28 6f 6e 2d 4d 61 |all).   | `(on-Ma|
|00000510| 63 4f 53 2d 6e 7a 2d 65 | 72 72 6f 72 20 2c 74 72 |cOS-nz-e|rror ,tr|
|00000520| 61 70 2d 63 61 6c 6c 29 | 29 0d 20 20 0d 20 20 29 |ap-call)|).  .  )|
|00000530| 0d 0d 28 64 65 66 75 6e | 20 4d 61 63 4f 53 2d 6e |..(defun| MacOS-n|
|00000540| 7a 2d 65 72 72 6f 72 2d | 73 74 72 69 6e 67 20 28 |z-error-|string (|
|00000550| 74 72 61 70 2d 66 6f 72 | 6d 20 61 72 67 73 20 72 |trap-for|m args r|
|00000560| 65 73 75 6c 74 29 0d 20 | 20 28 66 6f 72 6d 61 74 |esult). | (format|
|00000570| 20 6e 69 6c 0d 20 20 20 | 20 20 20 20 20 20 20 22 | nil.   |       "|
|00000580| 6d 61 63 20 65 72 72 6f | 72 20 63 6f 64 65 20 3d |mac erro|r code =|
|00000590| 20 7e 73 7e 25 3e 20 66 | 72 6f 6d 20 74 72 61 70 | ~s~%> f|rom trap|
|000005a0| 20 63 61 6c 6c 3a 20 7e | 73 7e 25 3e 20 20 77 69 | call: ~|s~%>  wi|
|000005b0| 74 68 20 61 72 67 20 76 | 61 6c 73 3a 20 7e 7b 7e |th arg v|als: ~{~|
|000005c0| 25 3e 20 20 20 20 7e 73 | 20 3d 20 7e 7e 73 7e 7d |%>    ~s| = ~~s~}|
|000005d0| 22 0d 20 20 20 20 20 20 | 20 20 20 20 72 65 73 75 |".      |    resu|
|000005e0| 6c 74 0d 20 20 20 20 20 | 20 20 20 20 20 74 72 61 |lt.     |     tra|
|000005f0| 70 2d 66 6f 72 6d 0d 20 | 20 20 20 20 20 20 20 20 |p-form. |        |
|00000600| 20 61 72 67 73 29 29 0d | 0d 3b 3b 3b 3b 3b 3b 3b | args)).|.;;;;;;;|
|00000610| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000620| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000630| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000640| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|00000650| 0d 23 7c 0d 28 72 65 71 | 75 69 72 65 20 3a 2b 4f |.#|.(req|uire :+O|
|00000660| 53 55 74 69 6c 73 29 0d | 0d 28 64 65 66 6d 61 63 |SUtils).|.(defmac|
|00000670| 72 6f 20 77 69 74 68 6f | 75 74 2d 4f 53 54 72 61 |ro witho|ut-OSTra|
|00000680| 70 20 28 28 74 72 61 70 | 2d 6e 75 6d 62 65 72 20 |p ((trap|-number |
|00000690| 6e 65 77 2d 74 72 61 70 | 2d 66 6e 29 20 26 62 6f |new-trap|-fn) &bo|
|000006a0| 64 79 20 62 6f 64 79 29 | 0d 20 20 28 6c 65 74 20 |dy body)|.  (let |
|000006b0| 28 28 74 72 61 70 41 64 | 64 72 20 28 67 65 6e 73 |((trapAd|dr (gens|
|000006c0| 79 6d 29 29 29 0d 20 20 | 20 20 60 28 77 69 74 68 |ym))).  |  `(with|
|000006d0| 2d 6d 61 63 70 74 72 73 | 20 28 28 2c 74 72 61 70 |-macptrs| ((,trap|
|000006e0| 41 64 64 72 20 28 23 5f | 47 65 74 4f 53 54 72 61 |Addr (#_|GetOSTra|
|000006f0| 70 41 64 64 72 65 73 73 | 20 2c 74 72 61 70 2d 6e |pAddress| ,trap-n|
|00000700| 75 6d 62 65 72 29 29 29 | 0d 20 20 20 20 20 20 20 |umber)))|.       |
|00000710| 28 75 6e 77 69 6e 64 2d | 70 72 6f 74 65 63 74 0d |(unwind-|protect.|
|00000720| 20 20 20 20 20 20 20 20 | 20 28 70 72 6f 67 6e 0d |        | (progn.|
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 28 23 5f 53 65 |        |   (#_Se|
|00000740| 74 4f 53 54 72 61 70 41 | 64 64 72 65 73 73 20 2c |tOSTrapA|ddress ,|
|00000750| 6e 65 77 2d 74 72 61 70 | 2d 66 6e 20 2c 74 72 61 |new-trap|-fn ,tra|
|00000760| 70 2d 6e 75 6d 62 65 72 | 29 0d 20 20 20 20 20 20 |p-number|).      |
|00000770| 20 20 20 20 20 2c 40 62 | 6f 64 79 29 0d 20 20 20 |     ,@b|ody).   |
|00000780| 20 20 20 20 20 20 28 23 | 5f 53 65 74 4f 53 54 72 |      (#|_SetOSTr|
|00000790| 61 70 41 64 64 72 65 73 | 73 20 2c 74 72 61 70 41 |apAddres|s ,trapA|
|000007a0| 64 64 72 20 2c 74 72 61 | 70 2d 6e 75 6d 62 65 72 |ddr ,tra|p-number|
|000007b0| 29 29 29 29 29 0d 0d 28 | 64 65 66 6d 61 63 72 6f |)))))..(|defmacro|
|000007c0| 20 77 69 74 68 6f 75 74 | 2d 54 6f 6f 6c 54 72 61 | without|-ToolTra|
|000007d0| 70 20 28 28 74 72 61 70 | 2d 6e 75 6d 62 65 72 20 |p ((trap|-number |
|000007e0| 6e 65 77 2d 74 72 61 70 | 2d 66 6e 29 20 26 62 6f |new-trap|-fn) &bo|
|000007f0| 64 79 20 62 6f 64 79 29 | 0d 20 20 28 6c 65 74 20 |dy body)|.  (let |
|00000800| 28 28 74 72 61 70 41 64 | 64 72 20 28 67 65 6e 73 |((trapAd|dr (gens|
|00000810| 79 6d 29 29 29 0d 20 20 | 20 20 60 28 77 69 74 68 |ym))).  |  `(with|
|00000820| 2d 6d 61 63 70 74 72 73 | 20 28 28 2c 74 72 61 70 |-macptrs| ((,trap|
|00000830| 41 64 64 72 20 28 23 5f | 47 65 74 54 6f 6f 6c 54 |Addr (#_|GetToolT|
|00000840| 72 61 70 41 64 64 72 65 | 73 73 20 2c 74 72 61 70 |rapAddre|ss ,trap|
|00000850| 2d 6e 75 6d 62 65 72 29 | 29 29 0d 20 20 20 20 20 |-number)|)).     |
|00000860| 20 20 28 75 6e 77 69 6e | 64 2d 70 72 6f 74 65 63 |  (unwin|d-protec|
|00000870| 74 0d 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 |t.      |   (prog|
|00000880| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |n.      |     (#_|
|00000890| 53 65 74 54 6f 6f 6c 54 | 72 61 70 41 64 64 72 65 |SetToolT|rapAddre|
|000008a0| 73 73 20 2c 6e 65 77 2d | 74 72 61 70 2d 66 6e 20 |ss ,new-|trap-fn |
|000008b0| 2c 74 72 61 70 2d 6e 75 | 6d 62 65 72 29 0d 20 20 |,trap-nu|mber).  |
|000008c0| 20 20 20 20 20 20 20 20 | 20 2c 40 62 6f 64 79 29 |        | ,@body)|
|000008d0| 0d 20 20 20 20 20 20 20 | 20 20 28 23 5f 53 65 74 |.       |  (#_Set|
|000008e0| 54 6f 6f 6c 54 72 61 70 | 41 64 64 72 65 73 73 20 |ToolTrap|Address |
|000008f0| 2c 74 72 61 70 41 64 64 | 72 20 2c 74 72 61 70 2d |,trapAdd|r ,trap-|
|00000900| 6e 75 6d 62 65 72 29 29 | 29 29 29 0d 0d 28 64 65 |number))|)))..(de|
|00000910| 66 70 61 73 63 61 6c 20 | 64 75 6d 6d 79 2d 45 72 |fpascal |dummy-Er|
|00000920| 61 73 65 52 65 63 74 20 | 28 3a 70 74 72 20 72 20 |aseRect |(:ptr r |
|00000930| 3a 76 6f 69 64 29 20 28 | 64 65 63 6c 61 72 65 20 |:void) (|declare |
|00000940| 28 69 67 6e 6f 72 65 20 | 72 29 29 29 0d 0d 28 64 |(ignore |r)))..(d|
|00000950| 65 66 6d 61 63 72 6f 20 | 77 69 74 68 6f 75 74 2d |efmacro |without-|
|00000960| 45 72 61 73 65 52 65 63 | 74 20 28 26 62 6f 64 79 |EraseRec|t (&body|
|00000970| 20 62 6f 64 79 29 0d 20 | 20 60 28 77 69 74 68 6f | body). | `(witho|
|00000980| 75 74 2d 54 6f 6f 6c 54 | 72 61 70 20 28 23 5f 45 |ut-ToolT|rap (#_E|
|00000990| 72 61 73 65 52 65 63 74 | 20 64 75 6d 6d 79 2d 45 |raseRect| dummy-E|
|000009a0| 72 61 73 65 52 65 63 74 | 29 0d 20 20 20 20 20 20 |raseRect|).      |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2c |        |       ,|
|000009c0| 40 62 6f 64 79 29 29 0d | 7c 23 0d 0d 3b 3b 3b 3b |@body)).||#..;;;;|
|000009d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000009e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000009f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000a00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000a10| 3b 3b 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;;......|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00000a90| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 54 72 61 70 |).(provi|de :Trap|
|00000aa0| 73 2d 75 29 0d 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |s-u).;;;|;;;;;;;;|
|00000ab0| 0c 74 72 61 70 73 2d 75 | 2e 6c 69 73 70 75 02 00 |.traps-u|.lispu..|
|00000ac0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|00000ad0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 a4 a8 af f5 00 00 | 00 00 00 00 01 a0 0d 3b |........|.......;|
|00000b00| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 a9 20 31 39 |; Copyri|ght . 19|
|00000b10| 39 31 20 4e 6f 72 74 68 | 77 65 73 74 65 72 6e 20 |91 North|western |
|00000b20| 55 6e 69 76 65 72 73 69 | 74 79 20 49 6e 73 74 69 |Universi|ty Insti|
|00000b30| 74 75 74 65 20 66 6f 72 | 20 74 68 65 20 4c 65 61 |tute for| the Lea|
|00000b40| 72 6e 69 6e 67 20 53 63 | 69 65 6e 63 65 73 0d 3b |rning Sc|iences.;|
|00000b50| 3b 20 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |; All Ri|ghts Res|
|00000b60| 65 72 76 65 64 0d 3b 3b | 0d 3b 3b 20 61 75 74 68 |erved.;;|.;; auth|
|00000b70| 6f 72 3a 20 4d 69 63 68 | 61 65 6c 20 53 2e 20 45 |or: Mich|ael S. E|
|00000b80| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00000b90| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 06 00 08 | 00 4f 01 c0 02 98 04 20 |........|.O..... |
|00000bc0| 00 4f 01 c0 02 98 04 20 | 00 00 00 00 00 00 00 10 |.O..... |........|
|00000bd0| 00 00 00 10 00 00 00 00 | 01 00 00 00 01 00 00 00 |........|........|
|00000be0| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d3 2c 08 16 |.Z...Z..|.F.7.,..|
|00000bf0| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00000c00| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00000c10| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 37 ec b0 |........|.....7..|
|00000c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+